home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Mac / Mod / EventMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-08-31  |  6.3 KB  |  156 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. Geneva
  21. MODULE MacEventMgr;
  22. (* cp 
  23.     OSEventManager partially included here
  24.     GetNextEvent not supported anymore (obsolete)
  25.     app4Evt (obsolete) replaced by osEvt
  26.     GetSpecificHighLevelEvent renamed to GetSpecificEvent
  27.     IMPORT SYSTEM, MacTypes;
  28.     CONST
  29.         nullEvent* = 0;
  30.         mouseDown* = 1;
  31.         mouseUp* = 2;
  32.         keyDown* = 3;
  33.         keyUp* = 4;
  34.         autoKey* = 5;
  35.         updateEvt* = 6;
  36.         diskEvt* = 7;
  37.         activateEvt* = 8;
  38.         networkEvt* = 10;
  39.         driverEvt* = 11;
  40.         app1Evt* = 12;
  41.         app2Evt* = 13;
  42.         app3Evt* = 14;
  43.         osEvt* = 15;
  44.         kHighLevelEvent* = 23;
  45.         charCodeMask* = 000000FFH;
  46.         keyCodeMask* = 0000FF00H;
  47.         everyEvent* = -1;
  48.         mDownMask* = 2;
  49.         mUpMask* = 4;
  50.         keyDownMask* = 8;
  51.         keyUpMask* = 16;
  52.         autoKeyMask* = 32;
  53.         updateMask* = 64;
  54.         diskMask* = 128;
  55.         activMask* = 256;
  56.         highLevelEventMask* = 1024;
  57.         resumeFlag* = 1;
  58.         convertClipboardFlag* = 2;
  59.         suspendResumeMessage* = 01H;
  60.         mouseMoveMessage* = 0FAH;
  61.         UNTAGGED = 1;
  62.         CODE = 1; NOSTKCHK = 4;
  63.     TYPE
  64.         EventRecord* = RECORD (MacTypes.Data)
  65.             what*: INTEGER;
  66.             message*: LONGINT;
  67.             when*: LONGINT;
  68.             where*: MacTypes.Point;
  69.             modifiers*: INTEGER
  70.         END;
  71.         KeyMap* = ARRAY [UNTAGGED] 4 OF SET;
  72.         HighLevelEventMsg* = RECORD (MacTypes.Data)
  73.             headerLength*: INTEGER;
  74.             version*: INTEGER;
  75.             reserved1: LONGINT;
  76.             theMsgEvent*: EventRecord;
  77.             userRefCon*: LONGINT;
  78.             postingOptions*: LONGINT;
  79.             msgLength*: LONGINT
  80.         END;
  81.         TargetID* = RECORD (MacTypes.Data)
  82.             sessionID*: LONGINT;
  83.             name: ARRAY [UNTAGGED] 72 OF CHAR;
  84.             location: ARRAY [UNTAGGED] 104 OF CHAR;
  85.             recvrName: ARRAY [UNTAGGED] 72 OF CHAR
  86.         END;
  87.     PROCEDURE [CODE] acceptHighLevelEvent (VAR sender: TargetID; VAR msgRefcon: LONGINT;
  88.                         msgBuff: MacTypes.Ptr; VAR msgLen: LONGINT;
  89.                         n: INTEGER): MacTypes.OSErr 0A8H, 08FH;
  90.     PROCEDURE [CODE] getSpecificEvent (aFilter: MacTypes.ProcPtr; yourDataPtr: MacTypes.ProcPtr;
  91.                         VAR err: MacTypes.OSErr; n: INTEGER): BOOLEAN 0A8H, 08FH;
  92.     PROCEDURE [CODE] postHighLevelEvent (theEvent: EventRecord; receiverID: MacTypes.Ptr;
  93.                         msgRefcon: LONGINT; msgBuff: MacTypes.Ptr; msgLen: LONGINT;
  94.                         postingOptions: LONGINT; n: INTEGER): MacTypes.OSErr 0A8H, 08FH;
  95.     (** Accessing Events **)
  96.     PROCEDURE [CODE] WaitNextEvent* (mask: INTEGER; VAR event: EventRecord;
  97.                                     sleep: LONGINT; mouseRgn: MacTypes.RgnHandle): BOOLEAN 0A8H, 60H;
  98.     PROCEDURE [CODE] EventAvail* (eventMask: INTEGER; VAR theEvent: EventRecord): BOOLEAN 0A9H, 071H;
  99.     PROCEDURE [NOSTKCHK] AcceptHighLevelEvent* (VAR sender: TargetID; VAR msgRefcon: LONGINT;
  100.                         msgBuff: MacTypes.Ptr; VAR msgLen: LONGINT): MacTypes.OSErr;
  101.     BEGIN
  102.         RETURN acceptHighLevelEvent(sender, msgRefcon, msgBuff, msgLen, 033H)
  103.     END AcceptHighLevelEvent;
  104.     PROCEDURE [NOSTKCHK] GetSpecificEvent* (aFilter: MacTypes.ProcPtr; yourDataPtr: MacTypes.ProcPtr;
  105.                         VAR err: MacTypes.OSErr): BOOLEAN;
  106.     BEGIN
  107.         RETURN getSpecificEvent(aFilter, yourDataPtr, err, 045H)
  108.     END GetSpecificEvent;
  109.     (** Reading the Mouse **)
  110.     PROCEDURE [CODE] GetMouse* (VAR mouseLoc: MacTypes.Point) 0A9H, 072H;
  111.     PROCEDURE [CODE] Button* (): BOOLEAN 0A9H, 074H;
  112.     PROCEDURE [CODE] StillDown* (): BOOLEAN 0A9H, 073H;
  113.     PROCEDURE [CODE] WaitMouseUp* (): BOOLEAN 0A9H, 077H;
  114.     (** Reading the Keyboard and Keypad **)
  115.     PROCEDURE [CODE] GetKeys* (VAR theKeys: KeyMap) 0A9H, 076H;
  116.     (** Posting and Removing Events **)
  117.     PROCEDURE [CODE] PostEvent* (eventCode: INTEGER; eventMsg: LONGINT): MacTypes.OSErr 0A0H, 02FH;
  118.     PROCEDURE [CODE] FlushEvents* (eventMask, stopMask: INTEGER) 0A0H, 032H;
  119.     PROCEDURE [NOSTKCHK] PostHighLevelEvent* (theEvent: EventRecord; receiverID: MacTypes.Ptr;
  120.                         msgRefcon: LONGINT; msgBuff: MacTypes.Ptr; msgLen: LONGINT;
  121.                         postingOptions: LONGINT): MacTypes.OSErr;
  122.     BEGIN
  123.         RETURN postHighLevelEvent(theEvent, receiverID, msgRefcon, msgBuff, msgLen,
  124.                         postingOptions, 034H)
  125.     END PostHighLevelEvent;
  126.     (** Misceallaneous **)
  127.     PROCEDURE [CODE] TickCount* (): LONGINT 0A9H, 075H;
  128.     PROCEDURE [NOSTKCHK] GetDblTime* (): LONGINT;
  129.         VAR t: LONGINT;
  130.     BEGIN
  131.         SYSTEM.MOVE(02F0H, SYSTEM.ADR(t), 4);
  132.         RETURN t
  133.     END GetDblTime;
  134.     PROCEDURE [NOSTKCHK] GetCaretTime* (): LONGINT;
  135.         VAR t: LONGINT;
  136.     BEGIN
  137.         SYSTEM.MOVE(02F4H, SYSTEM.ADR(t), 4);
  138.         RETURN t
  139.     END GetCaretTime;
  140.     PROCEDURE [CODE] CallDebugger* 04EH, 041H;
  141.     PROCEDURE [CODE] CheckUpdate* (VAR event: EventRecord): BOOLEAN 0A9H, 011H;
  142.     PROCEDURE [CODE] Debugger* () 0A9H, 0FFH;
  143.     PROCEDURE [CODE] DebugStr* (aStr: MacTypes.Str255) 0ABH, 0FFH;
  144. END MacEventMgr.
  145. TextControllers.StdCtrlDesc
  146. TextControllers.ControllerDesc
  147. Containers.ControllerDesc
  148. Controllers.ControllerDesc
  149. TextRulers.StdRulerDesc
  150. TextRulers.RulerDesc
  151. TextRulers.StdStyleDesc
  152. TextRulers.StyleDesc
  153. TextRulers.AttributesDesc
  154. Geneva
  155. Documents.ControllerDesc
  156.